﻿Public Class Main

    Private Sub HiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HiToolStripMenuItem.Click
        Employeeinfo.Close()
        Employeeinfo.TopLevel = False
        Me.penelmain.Controls.Add(Employeeinfo)
        Employeeinfo.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        Employeeinfo.WindowState = FormWindowState.Maximized
        Employeeinfo.Show()
    End Sub

    Private Sub ProductInformationToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProductInformationToolStripMenuItem.Click
        Product.Close()
        Product.TopLevel = False
        Me.penelmain.Controls.Add(Product)
        Product.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        Product.WindowState = FormWindowState.Maximized
        Product.Show()
    End Sub

    Private Sub AToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AToolStripMenuItem.Click
        Customerinfo.Close()
        Customerinfo.TopLevel = False
        Me.penelmain.Controls.Add(Customerinfo)
        Customerinfo.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        Customerinfo.WindowState = FormWindowState.Maximized
        Customerinfo.Show()
    End Sub

    Private Sub CategoryToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CategoryToolStripMenuItem.Click
        Categoryinfo.Close()
        Categoryinfo.TopLevel = False
        Me.penelmain.Controls.Add(Categoryinfo)
        Categoryinfo.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        Categoryinfo.WindowState = FormWindowState.Maximized
        Categoryinfo.Show()
    End Sub

    Private Sub UToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UToolStripMenuItem.Click

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Product.Close()
        Product.TopLevel = False
        Me.penelmain.Controls.Add(Product)
        Product.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        Product.WindowState = FormWindowState.Maximized
        Product.Show()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Employeeinfo.Close()
        Employeeinfo.TopLevel = False
        Me.penelmain.Controls.Add(Employeeinfo)
        Employeeinfo.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        Employeeinfo.WindowState = FormWindowState.Maximized
        Employeeinfo.Show()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Customerinfo.Close()
        Customerinfo.TopLevel = False
        Me.penelmain.Controls.Add(Customerinfo)
        Customerinfo.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        Customerinfo.WindowState = FormWindowState.Maximized
        Customerinfo.Show()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        user.Close()
        user.TopLevel = False
        Me.penelmain.Controls.Add(user)
        user.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        user.WindowState = FormWindowState.Maximized
        user.Show()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        'Order.Close()
        'Order.TopLevel = False
        'Me.penelmain.Controls.Add(Order)
        'Order.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        'Order.WindowState = FormWindowState.Maximized
        Order.ShowDialog()
    End Sub

    Private Sub Panel2_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs)
    End Sub

    Private Sub ExchangMoneyToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExchangMoneyToolStripMenuItem.Click
        changmoney.ShowDialog()
    End Sub

    Private Sub Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Order.Close()
        'Order.TopLevel = False
        'Me.penelmain.Controls.Add(Order)
        'Order.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        'Order.WindowState = FormWindowState.Maximized
        'Order.Show()
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        ProductExpire.Close()
        ProductExpire.TopLevel = False
        Me.penelmain.Controls.Add(ProductExpire)
        ProductExpire.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        ProductExpire.WindowState = FormWindowState.Maximized
        ProductExpire.Show()
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        incomstaterment.Close()
        incomstaterment.TopLevel = False
        Me.penelmain.Controls.Add(incomstaterment)
        incomstaterment.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        incomstaterment.WindowState = FormWindowState.Maximized
        incomstaterment.Show()
    End Sub

    Private Sub btnexpanding_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexpanding.Click
        exspanding.Close()
        exspanding.TopLevel = False
        Me.penelmain.Controls.Add(exspanding)
        exspanding.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        exspanding.WindowState = FormWindowState.Maximized
        exspanding.Show()
    End Sub
    Private Sub btnsalereport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsalereport.Click
        Selereport.Close()
        Selereport.TopLevel = False
        Me.penelmain.Controls.Add(Selereport)
        Selereport.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        Selereport.WindowState = FormWindowState.Maximized
        Selereport.Show()
    End Sub
End Class